home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 130 / clp_load.lst next >
File List  |  1987-11-28  |  561b  |  21 lines
  1. ' ---------------------------- Pic Clip File Loader ----------------------------
  2. '
  3. '           Filename$ --> Pic Clip File
  4. '
  5. Open "I",#1,Filename$
  6. Input #1,Clip_len,Colr_len,Clip_width,Clip_hite,Rez_pic
  7. Pic$=String$(Clip_len,0)
  8. Colr$=String$(Colr_len,0)
  9. Bget #1,Varptr(Colr$),Colr_len
  10. Bget #1,Varptr(Pic$),Clip_len
  11. Close #1
  12. ' =================================
  13. '  Install Color palette
  14. '
  15. Void Xbios(6,L:Varptr(Colr$))
  16. ' ==================================
  17. '   Xx,Yy --> Screen Coordinates
  18. '
  19. Put Xx,Yy,Pic$
  20. ' ==================================
  21.